home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Basic Tutorial / mctest8 < prev    next >
Lisp/Scheme  |  1998-10-26  |  2KB  |  52 lines
  1. ; tutorial example 8 - mctest8
  2.  
  3. (initdef)
  4. (defsym a '(b c a))
  5. (defsym b '(f e))
  6. (defsym c '(b a))
  7. (defsym d '(a g))
  8.  
  9. (def-symbol
  10.   test1 (gen-trans a 4)
  11.   test2 (gen-trans d 4)
  12.   test3 (gen-trans c 4)
  13.   test4 (gen-trans d 4)
  14.   test5 (symbol-retrograde 
  15.           (symbol-mix 
  16.             (gen-trans a 2) (gen-trans b 2) 
  17.             (gen-trans c 2) (gen-trans d 2)))
  18.   test6 (find-common 
  19.           (gen-trans a 4) (gen-trans c 4))
  20. )
  21.  
  22. (def-length
  23.   test1 '(1/16)
  24.   test2 '(1/16)
  25.   test3 '(1/16)
  26.   test4 '(1/16)
  27.   test5 '(1/4 1/16 1/8 1/16 -1/8 1/8)
  28.   test6 '(1/8 1/8 1/4 1/8)
  29. )
  30.  
  31. (setq tonals (activate-tonality (whole-tone c 5) (chromatic c 6)))
  32. (setq tonals1 (activate-tonality (chromatic c 6) (whole-tone c 5)))
  33. (setq chords (activate-tonality 
  34.                (c aug 7 1 4) (f# aug 9 1 3) (e min maj7 1 3)))
  35. (setq bass (activate-tonality (whole-tone c 3) (chromatic c 4)))
  36.  
  37. (compile-song-p "ccl;output:" 1/8 "part8"
  38. ;  BARS               |-------|-------|-------|-------|
  39. changes   tonals     "            .   .  .      .    ."
  40. changes2  tonals1    "    .   .    .   .  .  .     . ."
  41. changes3  chords     "     . . .    ..  .  .   .   .. "
  42. changes4  bass       "  .   .  . .        . . .   . . " 
  43. test1     changes    "--     ----- --- ---    ----- --"
  44. test2     changes2   "  ---  ---   -- - --- --- --- --"
  45. test3     changes2   "    ---- ---   - - --   --- -- -"           
  46. test4     changes    "      -----  - - - --  - - - - -" 
  47. test5     changes3   " - -------   ---  -- ---  ---- -"
  48. test6     changes4   "------------         -----------"
  49. )
  50.  
  51.  
  52.